home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update16.zoo / lib / diffc < prev    next >
Encoding:
Text File  |  1992-03-06  |  46.4 KB  |  2,092 lines
  1. *** 1.66    1992/02/04 17:11:06
  2. --- Changelo    1992/03/06 19:25:58
  3. ***************
  4. *** 2784,2786 ****
  5. --- 2784,2856 ----
  6.       sfp004 code and software floating point code merged into one file.
  7.   
  8.   ---------------------------- Patchlevel 75 ---------------------------
  9. + 
  10. + getopt.c, random.c, ctime.c:: michal
  11. +     get rid of dependency on doprnt().
  12. + 
  13. + random.c:: ++jrb
  14. +     warn about needing an ANSI pre-processor for str concat.
  15. + 
  16. + bcopy.s, memcpy.c:: ++jrb
  17. +     DELETE these files.
  18. + 
  19. + bcopy.s, memcpy.s:: michal
  20. +     replace with these. note now memcpy and memmove are NOT
  21. +      equivalenced. memmove will correctly handle overlap, while memcpy
  22. +      will not.
  23. + 
  24. + bcopy.s, memcpy.s:: ++jrb
  25. +     make the cnt check unsigned.
  26. + 
  27. + string.h:: ++jrb
  28. +     adjust protos for bXXXX() functions to size_t for counts.
  29. + 
  30. + mincl:: ++jrb
  31. +     adjust dependcy for memcpy()
  32. + 
  33. + memcpy.s:: ++jrb
  34. +     was missing label setup:
  35. + 
  36. + osbind.h:: michal
  37. +     Add new Waketime() binding for ST Book.
  38. + 
  39. + osbind.h:: Warwick@cs.uq.oz.au
  40. +     change cast for Kbdvbase() as g++ wont grok void (**)
  41. + 
  42. + ctype.[ch]:: ers/++jrb
  43. +     change _ctype[] back to pointer so that locales may switch pointers.
  44. +     keep andreas's changes for unsigned index into ctype in. that
  45. +     way EOF is covered too. (by the 0xff entry).
  46. + 
  47. + compiler.h file.h unistd.h assert.h ostruct.h:: ++jrb
  48. +     sync up with mntlib pl18 changes for soz etc.
  49. + 
  50. + bcmp.c, bzero.c, qsort.c: ers
  51. +     Ansification (casting lvalues is a no-no :-).
  52. + 
  53. + doprnt.c getcwd.c memccpy.c mkdir.c tmpnam.c fdopen.c
  54. + getenv.c memchr.c sbrk.c ftw.c memcmp.c sleep.c crt0.c
  55. + getbuf.c malloc.c memset.c sprintf.c strdup.c system.c sysvar.c:: ++jrb
  56. +     merge in soz portability changes as per mntlib 18
  57. + 
  58. + mkdir.c:: ++jrb
  59. +     check for existance before attempting to make per mntlib 18
  60. + 
  61. + doprnt.c:: ++jrb
  62. +     t was not being initialized in one case. do it at the top.
  63. + 
  64. + gnulib2.c:: ++jrb
  65. +     add support routines for gcc-2.0: note that the lib needs
  66. +     to be re-compiled BEFORE you try to compile gcc-2.0,
  67. +     otherwise you will end up chasing your tail!
  68. + 
  69. + ldexp.cpp: mjr++
  70. +     rewrote the sfp code.
  71. + 
  72. + doprnt.c: mjr++
  73. +     fixed my bug in the treatment of NaNs and Infinities. 
  74. + 
  75. + mktemp.c:: ++jrb
  76. +     make mktemp() more MiNT friendly by using pid when __mint.
  77. + 
  78. + ---------------------------- Patchlevel 76 ---------------------------
  79. *** 1.8    1992/02/04 17:11:06
  80. --- DMakefile    1992/03/06 19:25:58
  81. ***************
  82. *** 61,67 ****
  83.   difftime.c  fungetc.c    memccpy.c   screen.c    strncat.c   vfork.c    \
  84.   dirent.c    fwrite.c    memchr.c    setbuf.c    strncmp.c   write.c    \
  85.   div.c        getbuf.c    memcmp.c    setlocal.c    strncpy.c        \
  86. ! doprnt.c    getcwd.c    memcpy.c    setvbuf.c    strpbrk.c        \
  87.   dup.c        getenv.c    memset.c    sgtty.c    strrchr.c   device.c    \
  88.   pipe.c        binmode.c    timeoday.c
  89.   
  90. --- 61,67 ----
  91.   difftime.c  fungetc.c    memccpy.c   screen.c    strncat.c   vfork.c    \
  92.   dirent.c    fwrite.c    memchr.c    setbuf.c    strncmp.c   write.c    \
  93.   div.c        getbuf.c    memcmp.c    setlocal.c    strncpy.c        \
  94. ! doprnt.c    getcwd.c            setvbuf.c    strpbrk.c        \
  95.   dup.c        getenv.c    memset.c    sgtty.c    strrchr.c   device.c    \
  96.   pipe.c        binmode.c    timeoday.c
  97.   
  98. *** 1.51    1992/01/29 20:58:29
  99. --- PatchLev.h    1992/03/06 19:25:59
  100. ***************
  101. *** 1,5 ****
  102.   
  103. ! #define    PatchLevel "75"
  104.   
  105.   /*
  106.    *
  107. --- 1,5 ----
  108.   
  109. ! #define    PatchLevel "76"
  110.   
  111.   /*
  112.    *
  113. *** 1.9    1991/06/23 17:07:09
  114. --- bcmp.c    1992/03/06 19:26:09
  115. ***************
  116. *** 4,9 ****
  117. --- 4,10 ----
  118.   
  119.   #undef ODD
  120.   #define ODD(x) (((short)(x)) & 1)    /* word ops are faster */
  121. + #define INC(x, size) x = (const void *)(((const char *)(x)) + (size))
  122.   
  123.   /*
  124.    * compare n bytes efficientlty
  125. ***************
  126. *** 13,21 ****
  127.    *   ++jrb  bammi@dsrgsun.ces.cwru.edu
  128.    */
  129.   asm(".stabs \"_lbcmp\",5,0,0,_bcmp"); /* dept of clean tricks */
  130.   int bcmp(src, dst, n)
  131. ! const register void * src;
  132. ! const register void * dst;
  133.   register size_t n;
  134.   {
  135.       assert ((src != NULL) && (dst != NULL));
  136. --- 14,23 ----
  137.    *   ++jrb  bammi@dsrgsun.ces.cwru.edu
  138.    */
  139.   asm(".stabs \"_lbcmp\",5,0,0,_bcmp"); /* dept of clean tricks */
  140. + 
  141.   int bcmp(src, dst, n)
  142. ! const void * src;
  143. ! const void * dst;
  144.   register size_t n;
  145.   {
  146.       assert ((src != NULL) && (dst != NULL));
  147. ***************
  148. *** 27,34 ****
  149.       switch(ODD(src) + ODD(dst))
  150.       {
  151.         case 2: /* ODD ODD */
  152. !         if(*(char *)dst++ != *(char *)src++)
  153.           return 1;
  154.           n--;
  155.           /* fall thru */
  156.           
  157. --- 29,38 ----
  158.       switch(ODD(src) + ODD(dst))
  159.       {
  160.         case 2: /* ODD ODD */
  161. !         if (*(const char *)dst != *(const char *)src)
  162.           return 1;
  163. +             INC(src, 1);
  164. +         INC(dst, 1);
  165.           n--;
  166.           /* fall thru */
  167.           
  168. ***************
  169. *** 37,53 ****
  170.           n -= (l << 2);
  171.           w = (n >> 1); /* # of words */
  172.           n -= (w << 1); /* n == # of residual bytes */
  173. !         while(l--)
  174. !         if( *((long *)dst)++ != *((long *)src)++ )
  175. !             return 1;
  176. !         while(w--)
  177. !         if( *((short *)dst)++ != *((short *)src)++ )
  178.               return 1;
  179.           /* fall thru */
  180.         case 1: /* ODD/EVEN or EVEN/ODD */
  181. !         while(n--)
  182. !         if( *(char *)dst++ != *(char *)src++ )
  183.               return 1;
  184.       }
  185.       }
  186.        return 0;
  187. --- 41,66 ----
  188.           n -= (l << 2);
  189.           w = (n >> 1); /* # of words */
  190.           n -= (w << 1); /* n == # of residual bytes */
  191. !         while(l--) {
  192. !         if (*((const long *)dst) != *((const long *)src))
  193. !             return 1;
  194. !         INC(dst, sizeof(long));
  195. !         INC(src, sizeof(long));
  196. !         }
  197. !         while(w--) {
  198. !         if( *((const short *)dst) != *((const short *)src) )
  199.               return 1;
  200. +         INC(dst, sizeof(short));
  201. +         INC(src, sizeof(short));
  202. +         }
  203.           /* fall thru */
  204.         case 1: /* ODD/EVEN or EVEN/ODD */
  205. !         while(n--) {
  206. !         if( *(const char *)dst != *(const char *)src )
  207.               return 1;
  208. +         INC(dst, 1);
  209. +         INC(src, 1);
  210. +         }
  211.       }
  212.       }
  213.        return 0;
  214. *** 1.9    1991/06/23 17:07:09
  215. --- bzero.c    1992/03/06 19:26:11
  216. ***************
  217. *** 4,9 ****
  218. --- 4,10 ----
  219.   
  220.   #undef ODD
  221.   #define ODD(x) (((short)(x)) & 1)    /* word ops are faster */
  222. + #define INC(b, size) b = (void *)( ((char *)(b)) + (size) )
  223.   
  224.   /*
  225.    * zero out a chunk efficiently
  226. ***************
  227. *** 12,20 ****
  228.    *   ++jrb  bammi@dsrgsun.ces.cwru.edu
  229.    */
  230.   asm(".stabs \"_lbzero\",5,0,0,_bzero"); /* dept of clean tricks */
  231.   void bzero(b, n)
  232. ! register void * b;
  233. ! register size_t n;
  234.   {
  235.       register size_t l, w;
  236.       
  237. --- 13,22 ----
  238.    *   ++jrb  bammi@dsrgsun.ces.cwru.edu
  239.    */
  240.   asm(".stabs \"_lbzero\",5,0,0,_bzero"); /* dept of clean tricks */
  241. + 
  242.   void bzero(b, n)
  243. ! void * b;
  244. ! size_t n;
  245.   {
  246.       register size_t l, w;
  247.       
  248. ***************
  249. *** 22,28 ****
  250.       
  251.       if(ODD(b))
  252.       {
  253. !     *(char *)b++ = (char)0;
  254.       n--;
  255.       }
  256.   
  257. --- 24,31 ----
  258.       
  259.       if(ODD(b))
  260.       {
  261. !     *(char *)b = (char)0;
  262. !     INC(b, 1);
  263.       n--;
  264.       }
  265.   
  266. ***************
  267. *** 31,41 ****
  268.       w = (n >> 1); /* # of words */
  269.       n -= (w << 1); /* n == # of residual bytes */
  270.   
  271. !     while(l--)
  272. !     *((long *)b)++ = 0L;
  273. !     while(w--)
  274. !     *((short *)b)++ = (short)0;
  275. !     while(n--)
  276. !     *(char *)b++ = (char)0;
  277.   }
  278.   
  279. --- 34,50 ----
  280.       w = (n >> 1); /* # of words */
  281.       n -= (w << 1); /* n == # of residual bytes */
  282.   
  283. !     while(l--) {
  284. !     *((long *)b) = 0L;
  285. !     INC(b, sizeof(long));
  286. !     }
  287. !     while(w--) {
  288. !     *((short *)b) = (short)0;
  289. !     INC(b, sizeof(short));
  290. !     }
  291. !     while(n--) {
  292. !     *(char *)b = (char)0;
  293. !     INC(b, 1);
  294. !     }
  295.   }
  296.   
  297. *** 1.19    1992/02/04 17:11:06
  298. --- crt0.c    1992/03/06 19:26:13
  299. ***************
  300. *** 80,85 ****
  301. --- 80,86 ----
  302.   #ifndef _COMPILER_H
  303.   #include <compiler.h>
  304.   #endif
  305. + #include <stddef.h>
  306.   
  307.   #define isspace(c) ((c) == ' '||(c) == '\t')
  308.   #define BUFSIZ    ((unsigned long)1024)    /* this must track the value */
  309. ***************
  310. *** 112,118 ****
  311.   void *_heapbase;
  312.   
  313.   /* default sizeof stdio buffers */
  314. ! unsigned long __DEFAULT_BUFSIZ__;    /* .comm             */
  315.   
  316.   /* are we an app? */
  317.   short _app;
  318. --- 113,119 ----
  319.   void *_heapbase;
  320.   
  321.   /* default sizeof stdio buffers */
  322. ! size_t __DEFAULT_BUFSIZ__;    /* .comm             */
  323.   
  324.   /* are we an app? */
  325.   short _app;
  326. *** 1.6    1991/04/26 03:42:08
  327. --- ctime.c    1992/03/06 19:26:13
  328. ***************
  329. *** 13,18 ****
  330. --- 13,54 ----
  331.                           "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"};
  332.   
  333.   
  334. + #ifdef __GNUC__
  335. + /* 
  336. +  * macro to produce two decimal digits of mval and write them
  337. +  * at position pointed by mptr - moves mptr to the next free position;
  338. +  * mval has to be in range 0-99, or banshee will get you
  339. +  */
  340. + #define _TWODIG(mptr,mval)        \
  341. + {                    \
  342. +         long _i = (long)(mval);        \
  343. +      __asm__ volatile("
  344. +     extl    %1;
  345. +     divu    #10,%1;
  346. +     addb    #48,%1;
  347. +     moveb    %1,%0@+;
  348. +     swap    %1;
  349. +     addb    #48,%1;
  350. +     moveb    %1,%0@+"            \
  351. +           : "=a"((long)mptr)    \
  352. +           : "d"(_i), "g"((unsigned short)mval), \
  353. +             "0"(mptr));        \
  354. + }
  355. + 
  356. + #else
  357. + 
  358. + static char *
  359. + two_dig(char *buf, unsigned short num) {
  360. +     unsigned int rem;
  361. + 
  362. +     rem = num % 10;
  363. +     *buf++ = '0' + (num / 10);
  364. +     *buf++ = '0' + rem;
  365. +     return buf;
  366. + }
  367. + 
  368. + #endif /* __GNUC__ */
  369. + 
  370.   char *asctime(time)
  371.           register const struct tm *time;
  372.   /*
  373. ***************
  374. *** 20,34 ****
  375.    *      the same internal buffer, as for ctime() is used for this function.
  376.    */
  377.           {
  378. !     if (time == NULL)
  379. !          (void)strcpy(timebuf, "??? ??? ?? ??:??:?? ????\n");
  380. !     else
  381. !              (void)sprintf(timebuf, "%.3s %.3s%3d %02d:%02d:%02d %04d\n",
  382. !                 day[time->tm_wday], month[time->tm_mon], time->tm_mday,
  383. !                 time->tm_hour, time->tm_min, time->tm_sec, 1900+time->tm_year);
  384. !         return(timebuf);
  385.           }
  386.   
  387.   char *ctime(rawtime)
  388.           const time_t *rawtime;
  389.   /*
  390. --- 56,103 ----
  391.    *      the same internal buffer, as for ctime() is used for this function.
  392.    */
  393.           {
  394. !     unsigned short values[6], *vpos, *valp;
  395. !     int i;
  396. !     char * ptr = timebuf;
  397. !     
  398. !     (void)strcpy(ptr, "??? ??? ?? ??:??:?? ????\n");
  399. !     if (time != NULL)
  400. !         {
  401. !         vpos = values;
  402. !         *vpos++ = time->tm_mday;
  403. !         *vpos++ = time->tm_hour;
  404. !         *vpos++ = time->tm_min;
  405. !         *vpos++ = time->tm_sec;
  406. !         i = 1900 + time->tm_year;
  407. !         *vpos++ = i / 100;
  408. !         *vpos   = i % 100;
  409. !         ptr = memcpy(ptr, day[time->tm_wday], 3) + 3;
  410. !         ptr += 1;
  411. !         ptr = memcpy(ptr, month[time->tm_mon], 3) + 3;
  412. !         valp = values;
  413. !         do
  414. !         {
  415. !         ptr += 1;
  416. ! #ifdef __GNUC__
  417. !         _TWODIG(ptr, *valp++);
  418. ! #else
  419. !         ptr = two_dig(ptr, *valp++);
  420. ! #endif /* __GNUC__ */
  421. !         }
  422. !             while (valp < vpos);
  423. ! #ifdef __GNUC__
  424. !         _TWODIG(ptr, *valp);
  425. ! #else
  426. !         ptr = two_dig(ptr, *valp);
  427. ! #endif /* __GNUC__ */
  428. !         if ('0' == timebuf[8])
  429. !         timebuf[8] = ' ';    /* blank out leading zero on a day */
  430. ! 
  431. !         }
  432. !     return(timebuf);
  433.           }
  434.   
  435. + 
  436.   char *ctime(rawtime)
  437.           const time_t *rawtime;
  438.   /*
  439. ***************
  440. *** 35,41 ****
  441.    *      Convert <rawtime> to a string.  A 26 character fixed field string
  442.    *      is created from the raw time value.  The following is an example
  443.    *      of what this string might look like:
  444. !  *              "Wed Jul 08 18:43:07 1987\n\0"
  445.    *      A 24-hour clock is used, and due to a limitation in the ST system
  446.    *      clock value, only a resolution of 2 seconds is possible.  A pointer
  447.    *      to the formatted string, which is held in an internal buffer, is
  448. --- 104,110 ----
  449.    *      Convert <rawtime> to a string.  A 26 character fixed field string
  450.    *      is created from the raw time value.  The following is an example
  451.    *      of what this string might look like:
  452. !  *              "Wed Jul  8 18:43:07 1987\n\0"
  453.    *      A 24-hour clock is used, and due to a limitation in the ST system
  454.    *      clock value, only a resolution of 2 seconds is possible.  A pointer
  455.    *      to the formatted string, which is held in an internal buffer, is
  456. *** 1.6    1992/01/29 20:58:29
  457. --- ctype.c    1992/03/06 19:26:13
  458. ***************
  459. *** 12,18 ****
  460.           /* some code uses these as function pointers --  i   */
  461.           /* have seen code that does.                 */
  462.   
  463. ! unsigned char _ctype[UCHAR_MAX+1] =
  464.       {
  465.       _CTc, _CTc, _CTc, _CTc,                /* 0x00..0x03 */
  466.       _CTc, _CTc, _CTc, _CTc,                /* 0x04..0x07 */
  467. --- 12,18 ----
  468.           /* some code uses these as function pointers --  i   */
  469.           /* have seen code that does.                 */
  470.   
  471. ! static unsigned char _myctype[UCHAR_MAX+1] =
  472.       {
  473.       _CTc, _CTc, _CTc, _CTc,                /* 0x00..0x03 */
  474.       _CTc, _CTc, _CTc, _CTc,                /* 0x04..0x07 */
  475. ***************
  476. *** 63,68 ****
  477. --- 63,70 ----
  478.       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 0xE0..0xEF */
  479.       0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0  /* 0xF0..0xFF */
  480.       };
  481. + 
  482. + unsigned char *_ctype = &(_myctype[0]);
  483.   
  484.   int toupper(c)
  485.       int c;
  486. *** 1.9    1992/02/04 17:11:06
  487. --- doprnt.c    1992/03/06 19:26:15
  488. ***************
  489. *** 22,27 ****
  490. --- 22,28 ----
  491.    *      mjr++
  492.    */
  493.   
  494. + #ifndef __NO_FLOAT__
  495.   static unsigned long
  496.       __notanumber[2] = { 0x7fffffffL, 0xffffffffL }; /* ieee NAN */
  497.   #define NAN  (*((double *)&__notanumber[0]))
  498. ***************
  499. *** 28,33 ****
  500. --- 29,35 ----
  501.   static unsigned long
  502.       __p_infinity[2] = { 0x7ff00000L, 0x00000000L }; /* ieee NAN */
  503.   #define INF  (*((double *)&__p_infinity[0]))
  504. + #endif
  505.   
  506.   #ifdef LIBC_SCCS
  507.   static char sccsid[] = "@(#)doprnt.c    5.37 (Berkeley) 3/26/89";
  508. ***************
  509. *** 168,173 ****
  510. --- 170,176 ----
  511.       char *digs;        /* digits for [diouxX] conversion */
  512.       char buf[BUF];        /* space for %c, %[diouxX], %[eEfgG] */
  513.   
  514. +         t = buf;
  515.       fmt = (const u_char *) fmt0;
  516.       digs = "0123456789abcdef";
  517.       for (cnt = 0;; ++fmt) {
  518. ***************
  519. *** 277,282 ****
  520. --- 280,286 ----
  521.   #define    _double _dd.d
  522.               _double = va_arg(argp, double);
  523.               if( (unsigned long)_dd.i[0] == __notanumber[0])    {
  524. +                 t = buf;
  525.                   t = strcpy(t, " Not A Number ");
  526.                   size = strlen(t);
  527.                   goto pforw;
  528. ***************
  529. *** 308,319 ****
  530.   /*              && ((unsigned long)_dd.i[1] == __p_infinity[1]) */
  531.   /* mjr: don't test this in order to catch a conversion bug in gcc-as     */
  532.               )    {
  533. !             if(softsign == 0)
  534.                   t = strcpy(t, " Infinity ");
  535. !             else
  536.                   t = strcpy(t, " -Infinity ");
  537. !                 size = strlen(t);
  538. !                 goto pforw;
  539.               }
  540.               /*
  541.                * cvt may have to round up past the "start" of the
  542. --- 312,324 ----
  543.   /*              && ((unsigned long)_dd.i[1] == __p_infinity[1]) */
  544.   /* mjr: don't test this in order to catch a conversion bug in gcc-as     */
  545.               )    {
  546. !                 t = buf;
  547. !                 if(softsign == 0)
  548.                   t = strcpy(t, " Infinity ");
  549. !                 else
  550.                   t = strcpy(t, " -Infinity ");
  551. !                 size = strlen(t);
  552. !                 goto pforw;
  553.               }
  554.               /*
  555.                * cvt may have to round up past the "start" of the
  556. *** 1.9    1992/01/29 20:58:29
  557. --- fdopen.c    1992/03/06 19:26:16
  558. ***************
  559. *** 12,18 ****
  560.       extern int __default_mode__;    /* see binmode.c */
  561.       register int i, iomode = 0, f = __default_mode__;
  562.       register FILE *fp = NULL;
  563. !     void _getbuf(FILE *);
  564.   
  565.       for(i=0; (!fp && (i < _NFILE)); ++i)
  566.           if(!(_iob[i]._flag & (_IORW | _IOREAD | _IOWRT)))
  567. --- 12,18 ----
  568.       extern int __default_mode__;    /* see binmode.c */
  569.       register int i, iomode = 0, f = __default_mode__;
  570.       register FILE *fp = NULL;
  571. !     void _getbuf __PROTO((FILE *));
  572.   
  573.       for(i=0; (!fp && (i < _NFILE)); ++i)
  574.           if(!(_iob[i]._flag & (_IORW | _IOREAD | _IOWRT)))
  575. *** 1.5    1991/04/23 16:04:12
  576. --- ftw.c    1992/03/06 19:26:22
  577. ***************
  578. *** 58,64 ****
  579.   
  580.       /* Get ready to hold the full paths. */
  581.       i = strlen(directory);
  582. !     fullpath = malloc(i + 1 + MAXNAMLEN + 1);
  583.       if (fullpath == NULL) {
  584.       closedir(dirp);
  585.       return -1;
  586. --- 58,64 ----
  587.   
  588.       /* Get ready to hold the full paths. */
  589.       i = strlen(directory);
  590. !     fullpath = malloc((size_t)(i + 1 + MAXNAMLEN + 1));
  591.       if (fullpath == NULL) {
  592.       closedir(dirp);
  593.       return -1;
  594. *** 1.4    1991/04/12 18:19:53
  595. --- getbuf.c    1992/03/06 19:26:22
  596. ***************
  597. *** 18,24 ****
  598.           fp->_bsiz = __DEFAULT_BUFSIZ__;
  599.   
  600.       if((f & _IONBF) /* risky!! but works ok with gnu.may change */
  601. !     || ((fp->_base = malloc((size_t)fp->_bsiz)) == NULL) )
  602.           {
  603.           fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF);
  604.           fp->_flag |= _IONBF;
  605. --- 18,24 ----
  606.           fp->_bsiz = __DEFAULT_BUFSIZ__;
  607.   
  608.       if((f & _IONBF) /* risky!! but works ok with gnu.may change */
  609. !         || (!(fp->_base = (unsigned char *)malloc((size_t)fp->_bsiz))) )
  610.           {
  611.           fp->_flag &= ~(_IOFBF | _IOLBF | _IONBF);
  612.           fp->_flag |= _IONBF;
  613. *** 1.9    1991/05/23 14:43:17
  614. --- getcwd.c    1992/03/06 19:26:23
  615. ***************
  616. *** 23,29 ****
  617.   #endif
  618.   
  619.       if (!buf)
  620. !         if (!(buf = malloc((size_t)size)))
  621.               return NULL;
  622.       path[2] = '\0';
  623.       (void)Dgetpath(path+2, 0);
  624. --- 23,29 ----
  625.   #endif
  626.   
  627.       if (!buf)
  628. !         if (!(buf = (char *) malloc((size_t)size)))
  629.               return NULL;
  630.       path[2] = '\0';
  631.       (void)Dgetpath(path+2, 0);
  632. *** 1.6    1991/04/26 03:42:08
  633. --- getenv.c    1992/03/06 19:26:23
  634. ***************
  635. *** 70,79 ****
  636.       del_env(strng);
  637.   
  638.       if (!environ)
  639. !         e = malloc(2*sizeof(char *));
  640.       else {
  641.           while(environ[i]) i++ ;
  642. !         e = malloc((i+2)*sizeof(char *));
  643.           if (!e) {
  644.               return -1;
  645.           }
  646. --- 70,79 ----
  647.       del_env(strng);
  648.   
  649.       if (!environ)
  650. !         e = (char **) malloc(2*sizeof(char *));
  651.       else {
  652.           while(environ[i]) i++ ;
  653. !         e = (char **) malloc((i+2)*sizeof(char *));
  654.           if (!e) {
  655.               return -1;
  656.           }
  657. *** 1.6    1991/04/26 03:42:08
  658. --- getopt.c    1992/03/06 19:26:23
  659. ***************
  660. *** 20,25 ****
  661. --- 20,27 ----
  662.   int    optind = 1;            /* next argv[] index */
  663.   char    *optarg = NULL;            /* option parameter if any */
  664.   
  665. + static char mtail[] = " -- x\n";
  666. + 
  667.   static int
  668.   Err( name, mess, c )            /* returns '?' */
  669.       char    *name;            /* program name argv[0] */
  670. ***************
  671. *** 27,37 ****
  672.       int    c;            /* defective option letter */
  673.       {
  674.       if ( opterr )
  675. !         (void) fprintf( stderr,
  676. !                 "%s: %s -- %c\n",
  677. !                 name, mess, c
  678. !                   );
  679. ! 
  680.       return '?';            /* erroneous-option marker */
  681.       }
  682.   
  683. --- 29,41 ----
  684.       int    c;            /* defective option letter */
  685.       {
  686.       if ( opterr )
  687. !         {
  688. !             mtail[4] = (char)c;
  689. !             (void) fputs(name, stderr);
  690. !             (void) fputs(": ", stderr);
  691. !             (void) fputs(mess, stderr);
  692. !             (void) fputs(&mtail[0], stderr);
  693. !         }
  694.       return '?';            /* erroneous-option marker */
  695.       }
  696.   
  697. *** 1.7    1991/04/26 03:42:08
  698. --- gnulib2.c    1992/03/06 19:26:26
  699. ***************
  700. *** 29,34 ****
  701. --- 29,54 ----
  702.   #define L_fixdfdi
  703.   #define L_floatdidf
  704.   
  705. + /* gcc-2.0 stuff */
  706. + #define L_lshrsi3
  707. + #define L_lshlsi3
  708. + #define L_ashrsi3
  709. + #define L_ashlsi3
  710. + #define L_eqdf2
  711. + #define L_nedf2
  712. + #define L_gtdf2
  713. + #define L_gedf2
  714. + #define L_ltdf2
  715. + #define L_ledf2
  716. + #define L_fixsfsi
  717. + #define L_floatsisf
  718. + #define L_eqsf2
  719. + #define L_nesf2
  720. + #define L_gtsf2
  721. + #define L_gesf2
  722. + #define L_ltsf2
  723. + #define L_lesf2
  724. + 
  725.   #endif /* __DEF_ALL__ */
  726.   
  727.   /* More subroutines needed by GCC output code on some machines.  */
  728. ***************
  729. *** 1033,1036 ****
  730. --- 1053,1625 ----
  731.   }
  732.   #endif /* not mips */
  733.   #endif /* not sparc */
  734. + #endif
  735. + 
  736. + /* stuff for gcc-2.0, note that you cannot compile the corresponding
  737. +    C code from libgcc1.c for these functions with gcc-2.0!
  738. +    This stuff should eventually be hand optimized as we have done
  739. +    with the other stuff,
  740. +  */
  741. + 
  742. + #if 0    /* these were the decls used to compile the asm below */
  743. + 
  744. + #ifndef SItype
  745. + #define SItype long int
  746. + #endif
  747. + 
  748. + #ifndef FLOAT_VALUE_TYPE  
  749. + #define FLOAT_VALUE_TYPE long int
  750. + #endif
  751. + 
  752. + #ifndef INTIFY
  753. + #define INTIFY(FLOATVAL)  (intify.f = (FLOATVAL), intify.i)
  754. + #endif
  755. + 
  756. + #ifndef FLOATIFY
  757. + #define FLOATIFY(INTVAL)  ((INTVAL).f)
  758. + #endif
  759. + 
  760. + #ifndef FLOAT_ARG_TYPE
  761. + #define FLOAT_ARG_TYPE union flt_or_int
  762. + #endif
  763. + 
  764. + union flt_or_value { FLOAT_VALUE_TYPE i; float f; };
  765. + 
  766. + union flt_or_int { long int i; float f; };
  767. + #endif
  768. + 
  769. + #ifdef L_lshrsi3
  770. + #if 0
  771. + SItype
  772. + __lshrsi3 (a, b)
  773. +      unsigned SItype a, b;
  774. + {
  775. +   return a >> b;
  776. + }
  777. + #endif
  778. + 
  779. + asm("    .text
  780. +     .even
  781. + .globl ___lshrsi3
  782. + ___lshrsi3:
  783. +     movel sp@(4),d0
  784. +     movel sp@(8),d1
  785. +     lsrl d1,d0
  786. +     rts
  787. + ");
  788. + #endif
  789. + 
  790. + #ifdef L_lshlsi3
  791. + #if 0
  792. + SItype
  793. + __lshlsi3 (a, b)
  794. +      unsigned SItype a, b;
  795. + {
  796. +   return a << b;
  797. + }
  798. + #endif
  799. + 
  800. + asm("   .text
  801. +     .even
  802. + .globl ___lshlsi3
  803. + ___lshlsi3:
  804. +     movel sp@(4),d0
  805. +     movel sp@(8),d1
  806. +     lsll d1,d0
  807. +     rts
  808. + ");
  809. + #endif
  810. + 
  811. + #ifdef L_ashrsi3
  812. + #if 0
  813. + SItype
  814. + __ashrsi3 (a, b)
  815. +      SItype a, b;
  816. + {
  817. +   return a >> b;
  818. + }
  819. + #endif
  820. + 
  821. + asm("   .text
  822. +     .even
  823. + .globl ___ashrsi3
  824. + ___ashrsi3:
  825. +     movel sp@(4),d0
  826. +     movel sp@(8),d1
  827. +     asrl d1,d0
  828. +     rts
  829. + ");
  830. + #endif
  831. + 
  832. + #ifdef L_ashlsi3
  833. + #if 0
  834. + SItype
  835. + __ashlsi3 (a, b)
  836. +      SItype a, b;
  837. + {
  838. +   return a << b;
  839. + }
  840. + #endif
  841. + 
  842. + asm("    .text
  843. +     .even
  844. + .globl ___ashlsi3
  845. + ___ashlsi3:
  846. +     movel sp@(4),d0
  847. +     movel sp@(8),d1
  848. +     asll d1,d0
  849. +     rts
  850. + ");
  851. + #endif
  852. + 
  853. + #ifdef L_eqdf2
  854. + #if 0
  855. + SItype
  856. + __eqdf2 (a, b)
  857. +      double a, b;
  858. + {
  859. +   /* Value == 0 iff a == b.  */
  860. +   return !(a == b);
  861. + }
  862. + #endif
  863. + 
  864. + asm("    .text
  865. +     .even
  866. + .globl ___eqdf2
  867. + ___eqdf2:
  868. +     moveml #0x3000,sp@-
  869. +     movel sp@(12),d1
  870. +     movel sp@(16),d2
  871. +     movel sp@(24),sp@-
  872. +     movel sp@(24),sp@-
  873. +     movel d2,sp@-
  874. +     movel d1,sp@-
  875. +     jbsr ___cmpdf2
  876. +     addw #16,sp
  877. +     tstl d0
  878. +     sne d0
  879. +     moveq #1,d3
  880. +     andl d3,d0
  881. +     moveml sp@+,#0xc
  882. +     rts
  883. + ");
  884. + #endif
  885. + 
  886. + #ifdef L_nedf2
  887. + #if 0
  888. + SItype
  889. + __nedf2 (a, b)
  890. +      double a, b;
  891. + {
  892. +   /* Value != 0 iff a != b.  */
  893. +   return a != b;
  894. + }
  895. + #endif
  896. + 
  897. + asm("    .text
  898. +     .even
  899. + .globl ___nedf2
  900. + ___nedf2:
  901. +     moveml #0x3000,sp@-
  902. +     movel sp@(12),d1
  903. +     movel sp@(16),d2
  904. +     movel sp@(24),sp@-
  905. +     movel sp@(24),sp@-
  906. +     movel d2,sp@-
  907. +     movel d1,sp@-
  908. +     jbsr ___cmpdf2
  909. +     addw #16,sp
  910. +     tstl d0
  911. +     sne d0
  912. +     moveq #1,d3
  913. +     andl d3,d0
  914. +     moveml sp@+,#0xc
  915. +     rts
  916. + ");
  917. + #endif
  918. + 
  919. + #ifdef L_gtdf2
  920. + #if 0
  921. + SItype
  922. + __gtdf2 (a, b)
  923. +      double a, b;
  924. + {
  925. +   /* Value > 0 iff a > b.  */
  926. +   return a > b;
  927. + }
  928. + #endif
  929. + 
  930. + asm("    .text
  931. +     .even
  932. + .globl ___gtdf2
  933. + ___gtdf2:
  934. +     moveml #0x3000,sp@-
  935. +     movel sp@(12),d1
  936. +     movel sp@(16),d2
  937. +     movel sp@(24),sp@-
  938. +     movel sp@(24),sp@-
  939. +     movel d2,sp@-
  940. +     movel d1,sp@-
  941. +     jbsr ___cmpdf2
  942. +     addw #16,sp
  943. +     tstl d0
  944. +     sgt d0
  945. +     moveq #1,d3
  946. +     andl d3,d0
  947. +     moveml sp@+,#0xc
  948. +     rts
  949. + ");
  950. + #endif
  951. + 
  952. + #ifdef L_gedf2
  953. + #if 0
  954. + SItype
  955. + __gedf2 (a, b)
  956. +      double a, b;
  957. + {
  958. +   /* Value >= 0 iff a >= b.  */
  959. +   return (a >= b) - 1;
  960. + }
  961. + #endif
  962. + 
  963. + asm("    .text
  964. +     .even
  965. + .globl ___gedf2
  966. + ___gedf2:
  967. +     moveml #0x3000,sp@-
  968. +     movel sp@(12),d1
  969. +     movel sp@(16),d2
  970. +     movel sp@(24),sp@-
  971. +     movel sp@(24),sp@-
  972. +     movel d2,sp@-
  973. +     movel d1,sp@-
  974. +     jbsr ___cmpdf2
  975. +     addw #16,sp
  976. +     tstl d0
  977. +     sge d0
  978. +     moveq #1,d3
  979. +     andl d3,d0
  980. +     subql #1,d0
  981. +     moveml sp@+,#0xc
  982. +     rts
  983. + ");
  984. + #endif
  985. + 
  986. + #ifdef L_ltdf2
  987. + #if 0
  988. + SItype
  989. + __ltdf2 (a, b)
  990. +      double a, b;
  991. + {
  992. +   /* Value < 0 iff a < b.  */
  993. +   return -(a < b);
  994. + }
  995. + #endif
  996. + 
  997. + asm("    .text
  998. +     .even
  999. + .globl ___ltdf2
  1000. + ___ltdf2:
  1001. +     moveml #0x3000,sp@-
  1002. +     movel sp@(12),d1
  1003. +     movel sp@(16),d2
  1004. +     movel sp@(24),sp@-
  1005. +     movel sp@(24),sp@-
  1006. +     movel d2,sp@-
  1007. +     movel d1,sp@-
  1008. +     jbsr ___cmpdf2
  1009. +     addw #16,sp
  1010. +     tstl d0
  1011. +     slt d0
  1012. +     moveq #1,d3
  1013. +     andl d3,d0
  1014. +     negl d0
  1015. +     moveml sp@+,#0xc
  1016. +     rts
  1017. + ");
  1018. + #endif
  1019. + 
  1020. + #ifdef L_ledf2
  1021. + #if 0
  1022. + SItype
  1023. + __ledf2 (a, b)
  1024. +      double a, b;
  1025. + {
  1026. +   /* Value <= 0 iff a <= b.  */
  1027. +   return 1 - (a <= b);
  1028. + }
  1029. + #endif
  1030. + 
  1031. + asm("    .text
  1032. +     .even
  1033. + .globl ___ledf2
  1034. + ___ledf2:
  1035. +     movel d2,sp@-
  1036. +     movel sp@(8),d0
  1037. +     movel sp@(12),d1
  1038. +     moveq #1,d2
  1039. +     movel sp@(20),sp@-
  1040. +     movel sp@(20),sp@-
  1041. +     movel d1,sp@-
  1042. +     movel d0,sp@-
  1043. +     jbsr ___cmpdf2
  1044. +     addw #16,sp
  1045. +     tstl d0
  1046. +     jgt L11
  1047. +     moveq #0,d2
  1048. + L11:
  1049. +     movel d2,d0
  1050. +     movel sp@+,d2
  1051. +     rts
  1052. + ");
  1053. + #endif
  1054. + 
  1055. + #ifdef L_fixsfsi
  1056. + #if 0
  1057. + SItype
  1058. + __fixsfsi (a)
  1059. +      FLOAT_ARG_TYPE a;
  1060. + {
  1061. +   union flt_or_value intify;
  1062. + #define perform_fixsfsi(a) return (SItype) a
  1063. +   perform_fixsfsi (FLOATIFY (a));
  1064. + }
  1065. + #endif
  1066. + 
  1067. + asm("    .text
  1068. +     .even
  1069. + .globl ___fixsfsi
  1070. + ___fixsfsi:
  1071. +     movel sp@(4),sp@-
  1072. +     jbsr ___extendsfdf2
  1073. +     addqw #4,sp
  1074. +     movel d1,sp@-
  1075. +     movel d0,sp@-
  1076. +     jbsr ___fixdfsi
  1077. +     addqw #8,sp
  1078. +     rts
  1079. + ");
  1080. + #endif
  1081. + 
  1082. + #ifdef L_floatsisf
  1083. + #if 0
  1084. + FLOAT_VALUE_TYPE
  1085. + __floatsisf (a)
  1086. +      SItype a;
  1087. + {
  1088. +   union flt_or_value intify;
  1089. + #define perform_floatsisf(a)  return INTIFY ((float) a)
  1090. +   perform_floatsisf (a);
  1091. + }
  1092. + #endif
  1093. + 
  1094. + asm("    .text
  1095. +     .even
  1096. + .globl ___floatsisf
  1097. + ___floatsisf:
  1098. +     movel sp@(4),sp@-
  1099. +     jbsr ___floatsidf
  1100. +     addqw #4,sp
  1101. +     movel d1,sp@-
  1102. +     movel d0,sp@-
  1103. +     jbsr ___truncdfsf2
  1104. +     addqw #8,sp
  1105. +     rts
  1106. + ");
  1107. + #endif
  1108. + 
  1109. + #ifdef L_eqsf2
  1110. + #if 0
  1111. + SItype
  1112. + __eqsf2 (a, b)
  1113. +      FLOAT_ARG_TYPE a, b;
  1114. + {
  1115. +   union flt_or_int intify;
  1116. +   /* Value == 0 iff a == b.  */
  1117. + #define perform_eqsf2(a, b) return !(a == b)
  1118. +   perform_eqsf2 (FLOATIFY (a), FLOATIFY (b));
  1119. + }
  1120. + #endif
  1121. + 
  1122. + asm("    .text
  1123. +     .even
  1124. + .globl ___eqsf2
  1125. + ___eqsf2:
  1126. +     movel d2,sp@-
  1127. +     movel sp@(8),d1
  1128. +     movel sp@(12),sp@-
  1129. +     movel d1,sp@-
  1130. +     jbsr ___cmpsf2
  1131. +     addqw #8,sp
  1132. +     tstl d0
  1133. +     sne d0
  1134. +     moveq #1,d2
  1135. +     andl d2,d0
  1136. +     movel sp@+,d2
  1137. +     rts
  1138. + ");
  1139. + #endif
  1140. + 
  1141. + #ifdef L_nesf2
  1142. + #if 0
  1143. + SItype
  1144. + __nesf2 (a, b)
  1145. +      FLOAT_ARG_TYPE a, b;
  1146. + {
  1147. +   union flt_or_int intify;
  1148. +   /* Value != 0 iff a != b.  */
  1149. + #define perform_nesf2(a, b) return a != b
  1150. +   perform_nesf2 (FLOATIFY (a), FLOATIFY (b));
  1151. + }
  1152. + #endif
  1153. + 
  1154. + asm("    .text
  1155. +     .even
  1156. + .globl ___nesf2
  1157. + ___nesf2:
  1158. +     movel d2,sp@-
  1159. +     movel sp@(8),d1
  1160. +     movel sp@(12),sp@-
  1161. +     movel d1,sp@-
  1162. +     jbsr ___cmpsf2
  1163. +     addqw #8,sp
  1164. +     tstl d0
  1165. +     sne d0
  1166. +     moveq #1,d2
  1167. +     andl d2,d0
  1168. +     movel sp@+,d2
  1169. +     rts
  1170. + ");
  1171. + #endif
  1172. + 
  1173. + #ifdef L_gtsf2
  1174. + #if 0
  1175. + SItype
  1176. + __gtsf2 (a, b)
  1177. +      FLOAT_ARG_TYPE a, b;
  1178. + {
  1179. +   union flt_or_int intify;
  1180. +   /* Value > 0 iff a > b.  */
  1181. + #define perform_gtsf2(a, b) return a > b
  1182. +   perform_gtsf2 (FLOATIFY (a), FLOATIFY (b));
  1183. + }
  1184. + #endif
  1185. + 
  1186. + asm("    .text
  1187. +     .even
  1188. + .globl ___gtsf2
  1189. + ___gtsf2:
  1190. +     movel d2,sp@-
  1191. +     movel sp@(8),d1
  1192. +     movel sp@(12),sp@-
  1193. +     movel d1,sp@-
  1194. +     jbsr ___cmpsf2
  1195. +     addqw #8,sp
  1196. +     tstl d0
  1197. +     sgt d0
  1198. +     moveq #1,d2
  1199. +     andl d2,d0
  1200. +     movel sp@+,d2
  1201. +     rts
  1202. + ");
  1203. + #endif
  1204. + 
  1205. + #ifdef L_gesf2
  1206. + #if 0
  1207. + SItype
  1208. + __gesf2 (a, b)
  1209. +      FLOAT_ARG_TYPE a, b;
  1210. + {
  1211. +   union flt_or_int intify;
  1212. +   /* Value >= 0 iff a >= b.  */
  1213. + #define perform_gesf2(a, b) return (a >= b) - 1
  1214. +   perform_gesf2 (FLOATIFY (a), FLOATIFY (b));
  1215. + }
  1216. + #endif
  1217. + 
  1218. + asm("    .text
  1219. +     .even
  1220. + .globl ___gesf2
  1221. + ___gesf2:
  1222. +     movel d2,sp@-
  1223. +     movel sp@(8),d1
  1224. +     movel sp@(12),sp@-
  1225. +     movel d1,sp@-
  1226. +     jbsr ___cmpsf2
  1227. +     addqw #8,sp
  1228. +     tstl d0
  1229. +     sge d0
  1230. +     moveq #1,d2
  1231. +     andl d2,d0
  1232. +     subql #1,d0
  1233. +     movel sp@+,d2
  1234. +     rts
  1235. + ");
  1236. + #endif
  1237. + 
  1238. + #ifdef L_ltsf2
  1239. + #if 0
  1240. + SItype
  1241. + __ltsf2 (a, b)
  1242. +      FLOAT_ARG_TYPE a, b;
  1243. + {
  1244. +   union flt_or_int intify;
  1245. +   /* Value < 0 iff a < b.  */
  1246. + #define perform_ltsf2(a, b) return -(a < b)
  1247. +   perform_ltsf2 (FLOATIFY (a), FLOATIFY (b));
  1248. + }
  1249. + #endif
  1250. + 
  1251. + asm("    .text
  1252. +     .even
  1253. + .globl ___ltsf2
  1254. + ___ltsf2:
  1255. +     movel d2,sp@-
  1256. +     movel sp@(8),d1
  1257. +     movel sp@(12),sp@-
  1258. +     movel d1,sp@-
  1259. +     jbsr ___cmpsf2
  1260. +     addqw #8,sp
  1261. +     tstl d0
  1262. +     slt d0
  1263. +     moveq #1,d2
  1264. +     andl d2,d0
  1265. +     negl d0
  1266. +     movel sp@+,d2
  1267. +     rts
  1268. + ");
  1269. + #endif
  1270. + 
  1271. + #ifdef L_lesf2
  1272. + #if 0
  1273. + SItype
  1274. + __lesf2 (a, b)
  1275. +      FLOAT_ARG_TYPE a, b;
  1276. + {
  1277. +   union flt_or_int intify;
  1278. +   /* Value <= 0 iff a <= b.  */
  1279. + #define perform_lesf2(a, b) return 1 - (a <= b); /* note bug fix from libgcc1.c */
  1280. +   perform_lesf2 (FLOATIFY (a), FLOATIFY (b));
  1281. + }
  1282. + #endif
  1283. + 
  1284. + asm("    .text
  1285. +     .even
  1286. + .globl ___lesf2
  1287. + ___lesf2:
  1288. +     movel d2,sp@-
  1289. +     movel sp@(8),d0
  1290. +     moveq #1,d2
  1291. +     movel sp@(12),sp@-
  1292. +     movel d0,sp@-
  1293. +     jbsr ___cmpsf2
  1294. +     addqw #8,sp
  1295. +     tstl d0
  1296. +     jgt L20
  1297. +     moveq #0,d2
  1298. + L20:
  1299. +     movel d2,d0
  1300. +     movel sp@+,d2
  1301. +     rts
  1302. + ");
  1303.   #endif
  1304. *** 1.4    1992/02/04 17:11:06
  1305. --- ldexp.cpp    1992/03/06 19:26:28
  1306. ***************
  1307. *** 208,231 ****
  1308.   #endif    ERROR_CHECK
  1309.   
  1310.   _ldexp:
  1311. !     lea    0xfffa50,a0        | fpu address
  1312. !     movew    #0x4011,a0@(comm)    | ftwotox to fp0 (as long int!)
  1313.   #ifdef __MSHORT__
  1314. !     movew    a7@(12),d0        | get exponent
  1315.       extl    d0
  1316.   #else
  1317. !     movel    a7@(12),d0        | get exponent
  1318.   #endif
  1319. !     cmpiw    #0x8900,a0@(resp)    | check if fpu is ready
  1320. !     movel    d0,a0@            | push arg
  1321. !     .long    0x0c6889000, 0xfff067f8    | wait
  1322. !     movew    #0x5423,a0@(comm)    | fmul value,fp0
  1323. !     .long    0x0c6889000, 0xfff067f8    | wait
  1324. !     movel    a7@(4),a0@        | load value
  1325. !     movel    a7@(8),a0@        |
  1326. !     .long    0x0c6889000, 0xfff067f8    | wait
  1327. !     movew    #0x7400,a0@(comm)    | get double from fp0
  1328. !     .long    0x0c6889000, 0xfff067f8    | wait
  1329.       movel    a0@,d0
  1330.       movel    a0@,d1
  1331.   #endif    sfp004
  1332. --- 208,238 ----
  1333.   #endif    ERROR_CHECK
  1334.   
  1335.   _ldexp:
  1336. ! 
  1337.   #ifdef __MSHORT__
  1338. !     movew    sp@(12),d0        | get exponent
  1339.       extl    d0
  1340.   #else
  1341. !     movel    sp@(12),d0        | get exponent
  1342.   #endif
  1343. !     lea    0xfffa50,a0        | fpu address
  1344. !     movew    #0x549e,a0@(comm)    | fgetexpd sp@(4),fp1
  1345. !     cmpiw    #0x8900,a0@(resp)
  1346. !     movel    sp@(4),a0@
  1347. !     movel    sp@(8),a0@
  1348. !     movew    #0x6080,a0@(comm)    | fmovel fp1,d1
  1349. !     .long    0x0c688900, 0xfff067f8
  1350. !     movel    a0@,d1
  1351. !     addl    d0,d1
  1352. !     movew    #0x4011,a0@(comm)    | ftwotoxl d0,fp0
  1353. !     .long    0x0c688900, 0xfff067f8
  1354. !     movel    d0,a0@
  1355. !     movew    #0x5423,a0@(comm)    | fmuld sp@(4),fp0
  1356. !     .long    0x0c688900, 0xfff067f8
  1357. !     movel    sp@(4),a0@
  1358. !     movel    sp@(8),a0@
  1359. !     movew    #0x7400,a0@(comm)    | fmoved fp0,d0/d1
  1360. !     .long    0x0c688900, 0xfff067f8
  1361.       movel    a0@,d0
  1362.       movel    a0@,d1
  1363.   #endif    sfp004
  1364. *** 1.27    1991/06/26 22:31:51
  1365. --- makefile.16    1992/03/06 19:26:30
  1366. ***************
  1367. *** 9,15 ****
  1368.   LIB = d:\gnu\lib
  1369.   
  1370.   # common subset of options; no int size or omit-frame-pointer:
  1371. ! COPTS= -O -fcombine-regs -fstrength-reduce -DNDEBUG $(XFLAGS)
  1372.   
  1373.   # Base options CC; includes int size but not omit-frame-pointer
  1374.   CFFLAGS = $(COPTS) -mshort
  1375. --- 9,15 ----
  1376.   LIB = d:\gnu\lib
  1377.   
  1378.   # common subset of options; no int size or omit-frame-pointer:
  1379. ! COPTS= -O -fstrength-reduce -DNDEBUG $(XFLAGS)
  1380.   
  1381.   # Base options CC; includes int size but not omit-frame-pointer
  1382.   CFFLAGS = $(COPTS) -mshort
  1383. *** 1.26    1991/06/26 22:31:51
  1384. --- makefile.32    1992/03/06 19:26:30
  1385. ***************
  1386. *** 9,15 ****
  1387.   LIB = d:\gnu\lib
  1388.   
  1389.   # common subset of options; no int size or omit-frame-pointer:
  1390. ! COPTS= -O -fcombine-regs -fstrength-reduce -DNDEBUG $(XFLAGS)
  1391.   
  1392.   # Base options CC; includes int size but not omit-frame-pointer
  1393.   CFFLAGS = $(COPTS)
  1394. --- 9,15 ----
  1395.   LIB = d:\gnu\lib
  1396.   
  1397.   # common subset of options; no int size or omit-frame-pointer:
  1398. ! COPTS= -O -fstrength-reduce -DNDEBUG $(XFLAGS)
  1399.   
  1400.   # Base options CC; includes int size but not omit-frame-pointer
  1401.   CFFLAGS = $(COPTS)
  1402. *** 1.19    1992/01/29 20:58:29
  1403. --- malloc.c    1992/03/06 19:26:31
  1404. ***************
  1405. *** 164,171 ****
  1406.       if ((!_split_mem) && _heapbase != NULL &&
  1407.           s >= (struct mem_chunk *) _heapbase &&
  1408.           s < (struct mem_chunk *) (_heapbase + _stksize)) {
  1409. !       assert(s == _heapbase);
  1410. !       _heapbase = (char *) p;
  1411.         _stksize += p->size;
  1412.         o->next = p->next;    /* o is always != NULL here */
  1413.       }
  1414. --- 164,171 ----
  1415.       if ((!_split_mem) && _heapbase != NULL &&
  1416.           s >= (struct mem_chunk *) _heapbase &&
  1417.           s < (struct mem_chunk *) (_heapbase + _stksize)) {
  1418. !       assert(s == (struct mem_chunk *) _heapbase);
  1419. !       _heapbase = (void *) p;
  1420.         _stksize += p->size;
  1421.         o->next = p->next;    /* o is always != NULL here */
  1422.       }
  1423. ***************
  1424. *** 176,183 ****
  1425.         if ((!_split_mem) && _heapbase != NULL &&
  1426.             s >= (struct mem_chunk *) _heapbase &&
  1427.             s < (struct mem_chunk *) (_heapbase + _stksize)) {
  1428. !         assert(s == _heapbase);
  1429. !         _heapbase = (char *) r;
  1430.           _stksize += r->size;
  1431.           p->next = r->next;
  1432.         } else p->next = r;
  1433. --- 176,183 ----
  1434.         if ((!_split_mem) && _heapbase != NULL &&
  1435.             s >= (struct mem_chunk *) _heapbase &&
  1436.             s < (struct mem_chunk *) (_heapbase + _stksize)) {
  1437. !         assert(s == (struct mem_chunk *) _heapbase);
  1438. !         _heapbase = (void *) r;
  1439.           _stksize += r->size;
  1440.           p->next = r->next;
  1441.         } else p->next = r;
  1442. ***************
  1443. *** 190,196 ****
  1444.   void *_r;
  1445.   size_t n;
  1446.   {
  1447. !   struct mem_chunk *p, *q, *r = _r;
  1448.     long sz;
  1449.   
  1450.   /* obscure features: realloc(NULL,n) is the same as malloc(n)
  1451. --- 190,196 ----
  1452.   void *_r;
  1453.   size_t n;
  1454.   {
  1455. !   struct mem_chunk *p, *q, *r = (struct mem_chunk *) _r;
  1456.     long sz;
  1457.   
  1458.   /* obscure features: realloc(NULL,n) is the same as malloc(n)
  1459. ***************
  1460. *** 256,262 ****
  1461.   void * calloc(n, sz)
  1462.   size_t n, sz;
  1463.   {
  1464. !   char *r;
  1465.     size_t total;
  1466.   
  1467.     total = n * sz;
  1468. --- 256,262 ----
  1469.   void * calloc(n, sz)
  1470.   size_t n, sz;
  1471.   {
  1472. !   void *r;
  1473.     size_t total;
  1474.   
  1475.     total = n * sz;
  1476. *** 1.5    1991/05/23 14:43:17
  1477. --- memccpy.c    1992/03/06 19:26:31
  1478. ***************
  1479. *** 31,38 ****
  1480.       if (size == 0)
  1481.           return(NULL);
  1482.   
  1483. !     s = src;
  1484. !     d = dst;
  1485.       uc = UNSCHAR(ucharstop);
  1486.       for (n = size; n > 0; n--)
  1487.           if (UNSCHAR(*d++ = *s++) == uc)
  1488. --- 31,38 ----
  1489.       if (size == 0)
  1490.           return(NULL);
  1491.   
  1492. !     s = (const char *) src;
  1493. !     d = (char *)dst;
  1494.       uc = UNSCHAR(ucharstop);
  1495.       for (n = size; n > 0; n--)
  1496.           if (UNSCHAR(*d++ = *s++) == uc)
  1497. *** 1.4    1989/11/12 12:47:43
  1498. --- memchr.c    1992/03/06 19:26:31
  1499. ***************
  1500. *** 26,32 ****
  1501.       register size_t n;
  1502.       register int uc;
  1503.   
  1504. !     scan = s;
  1505.       uc = UNSCHAR(ucharwanted);
  1506.       for (n = size; n > 0; n--)
  1507.           if (UNSCHAR(*scan) == uc)
  1508. --- 26,32 ----
  1509.       register size_t n;
  1510.       register int uc;
  1511.   
  1512. !     scan = (const char *) s;
  1513.       uc = UNSCHAR(ucharwanted);
  1514.       for (n = size; n > 0; n--)
  1515.           if (UNSCHAR(*scan) == uc)
  1516. *** 1.3    1989/03/25 02:56:28
  1517. --- memcmp.c    1992/03/06 19:26:32
  1518. ***************
  1519. *** 17,24 ****
  1520.       register const char *scan2;
  1521.       register size_t n;
  1522.   
  1523. !     scan1 = s1;
  1524. !     scan2 = s2;
  1525.       for (n = size; n > 0; n--)
  1526.           if (*scan1 == *scan2) {
  1527.               scan1++;
  1528. --- 17,24 ----
  1529.       register const char *scan2;
  1530.       register size_t n;
  1531.   
  1532. !     scan1 = (const char *) s1;
  1533. !     scan2 = (const char *) s2;
  1534.       for (n = size; n > 0; n--)
  1535.           if (*scan1 == *scan2) {
  1536.               scan1++;
  1537. *** 1.4    1989/03/25 04:18:12
  1538. --- memset.c    1992/03/06 19:26:32
  1539. ***************
  1540. *** 25,31 ****
  1541.       register size_t n;
  1542.       register int uc;
  1543.   
  1544. !     scan = s;
  1545.       uc = UNSCHAR(ucharfill);
  1546.       for (n = size; n > 0; n--)
  1547.           *scan++ = uc;
  1548. --- 25,31 ----
  1549.       register size_t n;
  1550.       register int uc;
  1551.   
  1552. !     scan = (char *)s;
  1553.       uc = UNSCHAR(ucharfill);
  1554.       for (n = size; n > 0; n--)
  1555.           *scan++ = uc;
  1556. *** 1.15    1992/02/04 17:11:06
  1557. --- mincl    1992/03/06 19:26:32
  1558. ***************
  1559. *** 9,15 ****
  1560.   GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
  1561.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  1562.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  1563. !         _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o
  1564.   
  1565.   GCC=     $(GLIB1) $(GLIB2) \
  1566.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  1567. --- 9,19 ----
  1568.   GLIB2 = _adddi3.o _subdi3.o _muldi3.o _divdi3.o _moddi3.o _udivdi3.o \
  1569.           _umoddi3.o _negdi2.o _anddi3.o _iordi3.o _xordi3.o _lshrdi3.o \
  1570.           _lshldi3.o _ashldi3.o _ashrdi3.o _one_cmpldi2.o _bdiv.o _cmpdi2.o \
  1571. !         _ucmpdi2.o _fixunsdfdi.o _fixdfdi.o _floatdidf.o \
  1572. !     _lshrsi3.o _lshlsi3.o _ashrsi3.o _ashlsi3.o _eqdf2.o \
  1573. !     _nedf2.o _gtdf2.o _gedf2.o _ltdf2.o _ledf2.o _fixsfsi.o \
  1574. !     _floatsisf.o _eqsf2.o _nesf2.o _gtsf2.o _gesf2.o _ltsf2.o \
  1575. !     _lesf2.o
  1576.   
  1577.   GCC=     $(GLIB1) $(GLIB2) \
  1578.       ldexp.o frexp.o modf.o alloca.o setjmp.o osbind.o\
  1579. ***************
  1580. *** 117,122 ****
  1581. --- 121,127 ----
  1582.   
  1583.   # other dependencies
  1584.   bcopy.o : bcopy.s
  1585. + memcpy.o: memcpy.s
  1586.   atof.o  : flonum.h
  1587.   
  1588.   #
  1589. *** 1.9    1991/12/26 15:53:59
  1590. --- mkdir.c    1992/03/06 19:26:33
  1591. ***************
  1592. *** 1,5 ****
  1593. --- 1,6 ----
  1594.   /* mkdir: make a new directory
  1595.    * written by Eric R. Smith and placed in the public domain
  1596. +  * modified by Alan Hourihane, to check for directory and return EEXIST.
  1597.    */
  1598.   
  1599.   #include <stdio.h>
  1600. ***************
  1601. *** 6,11 ****
  1602. --- 7,15 ----
  1603.   #include <osbind.h>
  1604.   #include <support.h>
  1605.   #include <unistd.h>
  1606. + #include <errno.h>
  1607. + #include <types.h>
  1608. + #include <stat.h>
  1609.   #include "symdir.h"
  1610.   #include "lib.h"
  1611.   
  1612. ***************
  1613. *** 16,21 ****
  1614. --- 20,26 ----
  1615.   int mode;
  1616.   {
  1617.       int rv, name_munged;
  1618. +     struct stat statbuf;
  1619.       char path[FILENAME_MAX];
  1620.   
  1621.   /*
  1622. ***************
  1623. *** 25,30 ****
  1624. --- 30,46 ----
  1625.    * in the global variable __link_name[].
  1626.    */
  1627.       name_munged = (unx2dos(_path, path) == _NM_CHANGE);
  1628. + 
  1629. +     rv = stat(path, &statbuf);    /* Stat directory */
  1630. +     if (rv == 0) {            /* Does it exist ? */
  1631. +         errno = EEXIST;        /* Yes, so tell user. */
  1632. +         return -1;
  1633. +     }
  1634. + 
  1635. +     if (errno != ENOENT) {        /* Return stat error, if other than */
  1636. +         return -1;        /* File not found. */
  1637. +     }
  1638. + 
  1639.       rv = Dcreate(path);
  1640.       if (rv < 0) {
  1641.           errno = -rv;
  1642. *** 1.10    1991/04/26 03:42:08
  1643. --- qsort.c    1992/03/06 19:26:37
  1644. ***************
  1645. *** 35,41 ****
  1646.   #include <compiler.h>
  1647.   #endif
  1648.   
  1649. !     
  1650.       /* the next 4 #defines implement a very fast in-line stack abstraction */
  1651.       
  1652.   #define MAKE_STACK(S) \
  1653. --- 35,44 ----
  1654.   #include <compiler.h>
  1655.   #endif
  1656.   
  1657. ! /* macros for incrementing/decrementing void pointers */
  1658. ! #define INC(v, size) v = (void *)(((char *)v) + size)
  1659. ! #define DEC(v, size) v = (void *)(((char *)v) - size)
  1660. ! 
  1661.       /* the next 4 #defines implement a very fast in-line stack abstraction */
  1662.       
  1663.   #define MAKE_STACK(S) \
  1664. ***************
  1665. *** 117,124 ****
  1666.          end of the array.  This acts like a sentinel, and it speeds
  1667.          up the inner loop of insertion sort. */
  1668.   
  1669. !     for (run_ptr = (char *)end_ptr - siz; run_ptr >= base;
  1670. !      (char *)run_ptr -= siz)
  1671.       if ((*cmp)(run_ptr, tmp_ptr) > 0) 
  1672.           tmp_ptr = run_ptr;
  1673.   
  1674. --- 120,127 ----
  1675.          end of the array.  This acts like a sentinel, and it speeds
  1676.          up the inner loop of insertion sort. */
  1677.   
  1678. !     for (run_ptr = (void *)((char *)end_ptr - siz); run_ptr >= base;
  1679. !      DEC(run_ptr, siz))
  1680.       if ((*cmp)(run_ptr, tmp_ptr) > 0) 
  1681.           tmp_ptr = run_ptr;
  1682.   
  1683. ***************
  1684. *** 128,143 ****
  1685.       /* Typical insertion sort, but we run from the `right-hand-side'
  1686.          downto the `left-hand-side.' */
  1687.       
  1688. !     for (run_ptr = (char *)end_ptr - siz; run_ptr > base;
  1689. !      (char *)run_ptr -= siz) 
  1690.       {
  1691. !     tmp_ptr = (char *)run_ptr - siz;
  1692.       Move(tmp_ptr, temp, siz);
  1693.   
  1694.       /* Select the correct location for the new element, 
  1695.          by sliding everyone down by 1 to make room! */
  1696.       
  1697.       while ((*cmp)(temp , ((char *)tmp_ptr += siz)) > 0)
  1698.           Move(tmp_ptr, ((unsigned char *)tmp_ptr - siz), siz);
  1699.   
  1700.       Move(temp, (unsigned char *)tmp_ptr - siz, siz);
  1701. --- 131,150 ----
  1702.       /* Typical insertion sort, but we run from the `right-hand-side'
  1703.          downto the `left-hand-side.' */
  1704.       
  1705. !     for (run_ptr = (void *)((char *)end_ptr - siz); run_ptr > base;
  1706. !      DEC(run_ptr, siz))
  1707.       {
  1708. !     tmp_ptr = (void *)((char *)run_ptr - siz);
  1709.       Move(tmp_ptr, temp, siz);
  1710.   
  1711.       /* Select the correct location for the new element, 
  1712.          by sliding everyone down by 1 to make room! */
  1713.       
  1714. + #if 0
  1715.       while ((*cmp)(temp , ((char *)tmp_ptr += siz)) > 0)
  1716. + #else
  1717. +     while (((INC(tmp_ptr, siz)), (*cmp)(temp, tmp_ptr)) > 0)
  1718. + #endif
  1719.           Move(tmp_ptr, ((unsigned char *)tmp_ptr - siz), siz);
  1720.   
  1721.       Move(temp, (unsigned char *)tmp_ptr - siz, siz);
  1722. ***************
  1723. *** 160,166 ****
  1724.       int (*cmp)();
  1725.   #endif
  1726.   {
  1727. !     void *middle = (char *)low + ((((char *)high - (char *)low)/siz) >> 1) * siz;
  1728.       
  1729.       if ((*cmp)(middle, low) < 0)
  1730.       { swap (middle, low, siz); }
  1731. --- 167,173 ----
  1732.       int (*cmp)();
  1733.   #endif
  1734.   {
  1735. !     void *middle = (void *) ((char *)low + ((((char *)high - (char *)low)/siz) >> 1) * siz);
  1736.       
  1737.       if ((*cmp)(middle, low) < 0)
  1738.       { swap (middle, low, siz); }
  1739. ***************
  1740. *** 230,236 ****
  1741.           return;    /* die */
  1742.       
  1743.       lo = base;
  1744. !     hi = (char *)lo + (total_elems - 1) * size;
  1745.   
  1746.       do {
  1747.           next: if((char *)hi <= ((char *)lo + Thresh)) /* correct unsigned comapare */
  1748. --- 237,243 ----
  1749.           return;    /* die */
  1750.       
  1751.       lo = base;
  1752. !     hi = (void *) ((char *)lo + (total_elems - 1) * size);
  1753.   
  1754.       do {
  1755.           next: if((char *)hi <= ((char *)lo + Thresh)) /* correct unsigned comapare */
  1756. ***************
  1757. *** 245,272 ****
  1758.           /* Select the median-of-three here. This allows us to
  1759.              skip forward for the LEFT_PTR and RIGHT_PTR. */
  1760.           pivot = find_pivot (lo, hi, size, cmp);
  1761. !         left_ptr  = (char *)lo + size;
  1762. !         right_ptr = (char *)hi - size; 
  1763.   
  1764.           /* Here's the famous ``collapse the walls'' section of
  1765.              quicksort.  Gotta like those tight inner loops! */
  1766.           do { /* partition loop */  /* see knuth for <= */
  1767.           while ((left_ptr < hi) && ((*cmp)(left_ptr, pivot) <= 0))
  1768. !             (char *)left_ptr += size;
  1769.           
  1770.           while ((right_ptr > lo) && ((*cmp)(pivot, right_ptr) <= 0))
  1771. !             (char *)right_ptr -= size;
  1772.           
  1773.           if (left_ptr < right_ptr) 
  1774.                   {
  1775.               swap (left_ptr, right_ptr, size);
  1776. !             (char *)left_ptr += size;
  1777. !             (char *)right_ptr -= size;
  1778.                   }
  1779.           else if (left_ptr == right_ptr) 
  1780.                   {
  1781. !             (char *)left_ptr +=size; 
  1782. !             (char *)right_ptr -= size; 
  1783.               break;
  1784.                   }
  1785.               } while (left_ptr <= right_ptr);
  1786. --- 252,279 ----
  1787.           /* Select the median-of-three here. This allows us to
  1788.              skip forward for the LEFT_PTR and RIGHT_PTR. */
  1789.           pivot = find_pivot (lo, hi, size, cmp);
  1790. !         left_ptr  = (void *)((char *)lo + size);
  1791. !         right_ptr = (void *)((char *)hi - size); 
  1792.   
  1793.           /* Here's the famous ``collapse the walls'' section of
  1794.              quicksort.  Gotta like those tight inner loops! */
  1795.           do { /* partition loop */  /* see knuth for <= */
  1796.           while ((left_ptr < hi) && ((*cmp)(left_ptr, pivot) <= 0))
  1797. !             INC(left_ptr, size);
  1798.           
  1799.           while ((right_ptr > lo) && ((*cmp)(pivot, right_ptr) <= 0))
  1800. !             DEC(right_ptr, size);
  1801.           
  1802.           if (left_ptr < right_ptr) 
  1803.                   {
  1804.               swap (left_ptr, right_ptr, size);
  1805. !             INC(left_ptr,  size);
  1806. !             DEC(right_ptr, size);
  1807.                   }
  1808.           else if (left_ptr == right_ptr) 
  1809.                   {
  1810. !             INC(left_ptr, size); 
  1811. !             DEC(right_ptr, size); 
  1812.               break;
  1813.                   }
  1814.               } while (left_ptr <= right_ptr);
  1815. *** 1.5    1991/05/23 14:43:17
  1816. --- random.c    1992/03/06 19:26:37
  1817. ***************
  1818. *** 221,226 ****
  1819. --- 221,233 ----
  1820.    * Returns a pointer to the old state.
  1821.    */
  1822.   
  1823. + #if !__STDC__
  1824. +    /* you need an ansi C compatible pre-processor jack! */
  1825. + #else
  1826. + #  define STR(s) # s
  1827. + #  define XSTR(s) STR(s)
  1828. + #endif
  1829. + 
  1830.   char  *
  1831.   initstate( seed, arg_state, n )
  1832.   
  1833. ***************
  1834. *** 234,240 ****
  1835. --- 241,251 ----
  1836.       else  state[ -1 ] = MAX_TYPES*(rptr - state) + rand_type;
  1837.       if(  n  <  BREAK_1  )  {
  1838.           if(  n  <  BREAK_0  )  {
  1839. + /*
  1840.           fprintf( stderr, "initstate: not enough state (%d bytes) with which to do jack; ignored.\n", n );
  1841. + */
  1842. +         fputs( "initstate: not enough state (less than " XSTR(BREAK_0)
  1843. +               " bytes)\nwith which to do jack; ignored.\n", stderr);
  1844.           return NULL;
  1845.           }
  1846.           rand_type = TYPE_0;
  1847. ***************
  1848. *** 313,319 ****
  1849. --- 324,335 ----
  1850.           break;
  1851.   
  1852.           default:
  1853. + /**
  1854.           fprintf( stderr, "setstate: state info has been munged; not changed.\n" );
  1855. + **/
  1856. +         fputs("setstate: state info has been munged; not changed.\n",
  1857. +               stderr);
  1858. +         
  1859.       }
  1860.       state = &new_state[ 1 ];
  1861.       if(  rand_type  !=  TYPE_0  )  {
  1862. *** 1.9    1992/02/04 17:11:06
  1863. --- sbrk.c    1992/03/06 19:26:39
  1864. ***************
  1865. *** 32,43 ****
  1866.       sp = (void *)slush;
  1867.       sz = (sz + 7) & ~((size_t)7L); /* round up request size next octet */
  1868.   
  1869. !     if ( sp < (void *)((size_t)_heapbase + sz) )
  1870.       {
  1871.       return NULL;
  1872.       }
  1873.       sp = _heapbase;
  1874. !     _heapbase = (void *)((size_t)_heapbase + sz);
  1875.       _stksize -= (long)sz;
  1876.       
  1877.       return( sp );
  1878. --- 32,43 ----
  1879.       sp = (void *)slush;
  1880.       sz = (sz + 7) & ~((size_t)7L); /* round up request size next octet */
  1881.   
  1882. !     if ( sp < (void *)((char *)_heapbase + sz) )
  1883.       {
  1884.       return NULL;
  1885.       }
  1886.       sp = _heapbase;
  1887. !     _heapbase = (void *)((char *)_heapbase + sz);
  1888.       _stksize -= (long)sz;
  1889.       
  1890.       return( sp );
  1891. *** 1.5    1991/04/12 18:19:53
  1892. --- sleep.c    1992/03/06 19:26:42
  1893. ***************
  1894. *** 27,33 ****
  1895.    *
  1896.    */
  1897.   void
  1898. ! usleep(unsigned long usec)
  1899.   {
  1900.       unsigned long    stop;
  1901.   
  1902. --- 27,34 ----
  1903.    *
  1904.    */
  1905.   void
  1906. ! usleep(usec)
  1907. ! unsigned long usec;
  1908.   {
  1909.       unsigned long    stop;
  1910.   
  1911. *** 1.6    1991/06/11 14:56:53
  1912. --- sprintf.c    1992/03/06 19:26:43
  1913. ***************
  1914. *** 2,7 ****
  1915. --- 2,13 ----
  1916.   #include <stdio.h>
  1917.   #include <limits.h>
  1918.   
  1919. + #ifdef __SOZOBON__    /* Electronic brain... */
  1920. + static FILE dummyf =
  1921. +     {0L, (unsigned char *)0, (unsigned char *)0,
  1922. +          _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX, '\0'};
  1923. + #endif
  1924. + 
  1925.   __EXTERN int _doprnt __PROTO((FILE *file, const char *fmt, va_list argp));
  1926.   
  1927.   #ifdef __STDC__
  1928. ***************
  1929. *** 13,22 ****
  1930.   #endif
  1931.       {
  1932.       register int n;
  1933.       FILE sf = 
  1934.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  1935.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  1936. !     va_list argp;
  1937.       
  1938.       va_start(argp, fmt);
  1939.       n = _doprnt(&sf, fmt, argp);
  1940. --- 19,35 ----
  1941.   #endif
  1942.       {
  1943.       register int n;
  1944. +     va_list argp;
  1945. + #ifndef __SOZOBON__
  1946.       FILE sf = 
  1947.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  1948.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  1949. ! #else
  1950. !     FILE sf;
  1951. !  
  1952. !     sf = dummyf;
  1953. !     sf._ptr = sf._base = (unsigned char *)buf;
  1954. ! #endif
  1955.       
  1956.       va_start(argp, fmt);
  1957.       n = _doprnt(&sf, fmt, argp);
  1958. ***************
  1959. *** 30,39 ****
  1960. --- 43,58 ----
  1961.       va_list args;
  1962.       {
  1963.       register int n;
  1964. + #ifndef __SOZOBON__    /* Same again, please, landlord. */
  1965.       FILE sf = 
  1966.       {0L, (unsigned char *)buf, (unsigned char *)buf,
  1967.            _IOWRT|_IOBIN|_IOSTRING|_IOFBF, 0, LONG_MAX,'\0'};
  1968. + #else
  1969. +     FILE sf;
  1970.   
  1971. +     sf = dummyf;
  1972. +     sf._ptr = sf._base = (unsigned char *)buf;
  1973. + #endif
  1974.       n = _doprnt(&sf, fmt, args);
  1975.       *(sf._ptr) = '\0';        /* always tie of the string */
  1976.       return(n);
  1977. *** 1.2    1990/04/04 03:11:11
  1978. --- strdup.c    1992/03/06 19:26:46
  1979. ***************
  1980. *** 13,19 ****
  1981.   {
  1982.       char *dup;
  1983.   
  1984. !     dup = malloc(strlen(s)+1);
  1985.       if (dup)
  1986.           strcpy(dup, s);
  1987.       return dup;
  1988. --- 13,19 ----
  1989.   {
  1990.       char *dup;
  1991.   
  1992. !     dup = (char *) malloc(strlen(s)+1);
  1993.       if (dup)
  1994.           strcpy(dup, s);
  1995.       return dup;
  1996. *** 1.13    1992/01/29 20:58:29
  1997. --- system.c    1992/03/06 19:26:51
  1998. ***************
  1999. *** 178,184 ****
  2000.           infd = Fopen(path, 0);
  2001.           if (infd < __SMALLEST_VALID_HANDLE) {
  2002.               perror(infile);
  2003. !             _exit(2);
  2004.           }
  2005.           oldin = Fdup(0);
  2006.           (void)Fforce(0, infd);
  2007. --- 178,184 ----
  2008.           infd = Fopen(path, 0);
  2009.           if (infd < __SMALLEST_VALID_HANDLE) {
  2010.               perror(infile);
  2011. !             return(2);
  2012.           }
  2013.           oldin = Fdup(0);
  2014.           (void)Fforce(0, infd);
  2015. ***************
  2016. *** 196,202 ****
  2017.               outfd = Fcreate(path, 0);
  2018.           if (outfd < __SMALLEST_VALID_HANDLE) {
  2019.               perror(outfile);
  2020. !             _exit(2);
  2021.           }
  2022.           oldout = Fdup(1);
  2023.           (void)Fforce(1, outfd);
  2024. --- 196,202 ----
  2025.               outfd = Fcreate(path, 0);
  2026.           if (outfd < __SMALLEST_VALID_HANDLE) {
  2027.               perror(outfile);
  2028. !             return(2);
  2029.           }
  2030.           oldout = Fdup(1);
  2031.           (void)Fforce(1, outfd);
  2032. *** 1.1    1990/02/27 21:25:34
  2033. --- sysvar.c    1992/03/06 19:26:52
  2034. ***************
  2035. *** 1,7 ****
  2036.   #include <support.h>
  2037.   #include <osbind.h>
  2038.   
  2039. ! long get_sysvar(void *var)
  2040.   {
  2041.       long ret;
  2042.       long save_ssp;
  2043. --- 1,9 ----
  2044.   #include <support.h>
  2045.   #include <osbind.h>
  2046.   
  2047. ! long
  2048. ! get_sysvar(var)
  2049. !     void *var;
  2050.   {
  2051.       long ret;
  2052.       long save_ssp;
  2053. ***************
  2054. *** 15,21 ****
  2055.       return ret;
  2056.   }
  2057.   
  2058. ! void    set_sysvar_to_long(void *var, long val)
  2059.   {
  2060.       long save_ssp;
  2061.       
  2062. --- 17,26 ----
  2063.       return ret;
  2064.   }
  2065.   
  2066. ! void
  2067. ! set_sysvar_to_long(var, val)
  2068. !     void *var;
  2069. !     long val;
  2070.   {
  2071.       long save_ssp;
  2072.       
  2073. *** 1.6    1991/04/26 03:42:08
  2074. --- tmpnam.c    1992/03/06 19:26:55
  2075. ***************
  2076. *** 13,19 ****
  2077.   {
  2078.       char *tmpdir;
  2079.   
  2080. !     if (!buf && !(buf = malloc(L_tmpnam)))
  2081.           return NULL;
  2082.   
  2083.       if (!(tmpdir = getenv("TEMP")) && !(tmpdir = getenv("TMPDIR")))
  2084. --- 13,19 ----
  2085.   {
  2086.       char *tmpdir;
  2087.   
  2088. !     if (!buf && !(buf = (char *)malloc(L_tmpnam)))
  2089.           return NULL;
  2090.   
  2091.       if (!(tmpdir = getenv("TEMP")) && !(tmpdir = getenv("TMPDIR")))
  2092.